home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / gateway.idb / usr / WebFace / Source / 20-NetworkServices / ftp / ftp-anonymous.frm.z / ftp-anonymous.frm
Encoding:
Text File  |  1997-07-30  |  8.0 KB  |  297 lines
  1. #!/usr/bin/perl5
  2. #
  3. # ftp-anonymous.cgi
  4. #
  5. # Copyright 1988-1996 Silicon Graphics, Inc.
  6. # All rights reserved.
  7. #
  8. # This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
  9. # the contents of this file may not be disclosed to third parties, copied or
  10. # duplicated in any form, in whole or in part, without the prior written
  11. # permission of Silicon Graphics, Inc.
  12. #
  13. # RESTRICTED RIGHTS LEGEND:
  14. # Use, duplication or disclosure by the Government is subject to restrictions
  15. # as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
  16. # and Computer Software clause at DFARS 252.227-7013, and/or in similar or
  17. # successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
  18. # rights reserved under the Copyright Laws of the United States.
  19. #
  20. # $Id: ftp-anonymous.frm,v 1.40 1997/06/24 22:20:39 shotes Exp $
  21.  
  22. # flow chart on form validation:
  23. #
  24. # if (ftp user does not already exist) 
  25. #   if (home directory already exists) -> error
  26. #   else -> create directory and ftp user
  27. # else
  28. #   if (home directory exists and owned by ftp) -> check for nec. files
  29. #   elsif (home dir. exists and not owned by ftp) -> error
  30. #   else -> create home dir. and add nec. files
  31.  
  32. BEGIN { require "/usr/WebFace/lib/CGI.pm"; import CGI; }
  33. require "/usr/OnRamp/lib/OnRamp.pm";
  34. require "/usr/OnRamp/lib/java.pm";
  35.  
  36. $query = new CGI;
  37.  
  38. $passwdfile = "/etc/passwd";
  39. $confI = "/etc/inetd.conf";
  40. $dummy = "/etc/passwd.tmp";
  41. $title = "Anonymous FTP Configuration";
  42.  
  43. if ($ENV{'HTTP_USER_AGENT'} =~ /Mozilla\/2/) { $br_index = 1; }
  44. else { $br_index = 0; }
  45.  
  46. $js = 
  47. "br_index = $br_index;
  48. $js_standard
  49. $js_error_box
  50. $js_filename
  51. function checkForm(form) {
  52.     if (form.eftp[br_index].checked) {
  53.         if (!testFilename(form.home, \"home directory name\")) return (false);
  54.     }
  55.     return (true);
  56. }";
  57.  
  58.  
  59. print $query->header;
  60. &js_title_block($title,$js);
  61.  
  62. $help = $document_root . $ENV{"SCRIPT_NAME"};
  63. $help =~ s/cgi$/hlp/;
  64. exec $help if ($query->param('help') eq "Help");
  65.  
  66. # if anonymous FTP user exists, we assume directory tree
  67. # also exists.
  68.  
  69. @getpass = getpwnam("ftp");
  70. if ($query->param('doit') eq 'Ok') {
  71.     if ($getpass[0]) {
  72.         $oldHome = $getpass[7];
  73.         $oldEftp = 'Yes';
  74.     }
  75.     if ($query->param('eftp') eq 'Yes') {
  76.         $home = $query->param('home');
  77.         &error("Invalid home directory.") if !$home;
  78.         &formValidation;
  79.         &checkInetdEntry;
  80.     
  81.         if (!$getpass[0] || $oldHome ne $home) { 
  82.             if ($getpass[0]) { &deleteOld; }
  83.             &add_password("ftp","*",500,25,"anon ftp",$home,"/bin/false"); 
  84.         }
  85.         if (-d $home) { &checkForFiles; }
  86.         else { &createHome; }
  87.         $message = "Anonymous FTP enabled.";
  88.     } else { &disable_ftp; }
  89. } elsif ($getpass[0]) {
  90.     $home = $getpass[7];
  91.     $eftp = 'Yes';
  92. } else {
  93.     $home = '/var/ftp';
  94.     $eftp = 'No';
  95. }
  96.  
  97. &generic;
  98.  
  99. print $query->end_html;
  100.  
  101. sub deleteOld {
  102.     open(IN,"< $passwdfile");
  103.     open(OUT,"> $dummy");
  104.     while(<IN>) {
  105.         @items = split(/:/);
  106.         if ($items[0] ne "ftp") { print OUT $_; }
  107.     }
  108.     close(IN);
  109.     close(OUT);
  110.     rename($dummy,$passwdfile);
  111. }        
  112.  
  113. sub checkInetdEntry {
  114.     $found = 0;
  115.     $doRename = 0;
  116.     open(IN,"< $confI");
  117.     open(OUT,"> $dummy");
  118.     while(<IN>) {
  119.         @items = split(/\s+/);
  120.         if (($items[0] eq "#" && $items[1] eq "ftp") || $items[0] eq "#ftp") {
  121.             $_ =~ /^\s*#\s*(.*)$/;
  122.             $line = $1;
  123.             print OUT "$line\n";
  124.             $found = 1;
  125.             $doRename = 1;
  126.         } elsif ($items[0] eq "ftp") {
  127.             print OUT $_;
  128.             $found = 1;
  129.         } else { print OUT $_; }
  130.     }
  131.     if (!$found) {
  132.         $doRename = 1;
  133.         print OUT "ftp\tstream\ttcp\tnowait\troot\t/user/etc/ftpd\tftpd\n";
  134.     }
  135.     close(IN);
  136.     close(OUT);
  137.     if ($doRename) { 
  138.         rename($dummy,$confI); 
  139.     system("/etc/killall", "-HUP", "inetd");
  140.     }
  141. }
  142.  
  143. sub formValidation {
  144.     if ($getpass[0]) {        # ftp user exists
  145.         if (-d $query->param('home')) {
  146.             my($dev,$ino,$mode,$nlink,$fuid,
  147.               $fgid,$rdev,$size,$atime,$mtime,
  148.               $ctime,$blksize,$blocks) = stat(_);
  149.  
  150.             my($name,$psswd,$uuid,$ugid,$quota,
  151.               $comment,$gcos,$dir,$shell) = getpwnam("ftp");
  152.  
  153.             &error("Home directory not owned by FTP") 
  154.               if $fuid != $uuid;
  155.         } elsif (-f $query->param('home')) {
  156.             &error("$home exists, but is not a directory.");
  157.         }
  158.     } else {                  #ftp user does not exist
  159.         if (-d $query->param('home')) {
  160.             &error("Home directory owned by other user.");
  161.         } elsif (-f $query->param('home')) {
  162.             &error("$home exists, but is not a directory.");
  163.         }
  164.     }
  165. }
  166.  
  167. sub error {
  168.     &error_block($_[0]);
  169.     &generic;
  170.     exit 0;
  171. } 
  172.  
  173. sub get_os_num {
  174.     open(IN, "/sbin/uname -r |");
  175.     $ret = <IN>; chop $ret;
  176.     close(IN);
  177.     $ret;
  178. }
  179.  
  180. sub createHome {
  181.     if (!$home) { return 0; }
  182.     # create home directory
  183.     system("/sbin/mkdir", "-p", $home);
  184.     system("/sbin/chown", "ftp.ftp", $home);
  185.  
  186.     $os_num = &get_os_num;
  187.  
  188.     # create subdirectories
  189.     mkdir("$home/bin", 0111);
  190.     mkdir("$home/pub", 0555);
  191.     mkdir("$home/etc", 0111);
  192.     mkdir("$home/lib", 0555);
  193.     mkdir("$home/dev", 0555);
  194.  
  195.     mkdir("$home/lib32", 0555) if ($os_num eq "6.4" || $os_num eq "6.5");
  196.  
  197.     system("/sbin/chown", "ftp.ftp", "$home/pub");
  198.   
  199.     system("/sbin/cp", "/bin/ls", "$home/bin"); 
  200.     chmod 0555, "$home/bin/ls";
  201.  
  202.     system("/sbin/cp", "/lib/rld", "$home/lib");
  203.     system("/sbin/cp", "/lib/libc.so.1", "$home/lib");
  204.     chmod 0555, "$home/lib/rld", "$home/lib/libc.so.1";
  205.  
  206.     if ($os_num eq "6.4" || $os_num eq "6.5") {
  207.     system("/sbin/cp", "/lib32/rld", "$home/lib32");
  208.     system("/sbin/cp", "/lib32/libc.so.1", "$home/lib32");
  209.     mkdir("$home/lib/iconv", 0555);
  210.     system("/sbin/cp", "/usr/lib/iconv/iconvtab", "$home/lib/iconv");
  211.     chmod 0555, "$home/lib/iconv/iconvtab";
  212.     }
  213.  
  214.     system("/sbin/mknod", "$home/dev/zero", "c", "37", "0");
  215. #   `mknod $home/dev/zero c 37 0`;
  216.     chmod 0444, "$home/dev/zero";
  217.  
  218.     $ftp_pass = $home . "/etc/passwd";
  219.     $ftp_grp = $home . "/etc/group";
  220.  
  221.     open(OUTP,"> $ftp_pass");
  222.     open(OUTG,"> $ftp_grp");
  223.  
  224.     my($name,$psswd,$uuid,$ugid,$quota,
  225.         $comment,$gcos,$dir,$shell) = getpwnam("ftp");
  226.     print OUTP "ftp:*:${uuid}:${ugid}:anon ftp:${dir}:${shell}\n";
  227.     print OUTG "ftp:*:${ugid}:\n";
  228.  
  229.     my($name,$psswd,$uuid,$ugid,$quota,
  230.         $comment,$gcos,$dir,$shell) = getpwnam("user");
  231.     print OUTG "user:*:${ugid}:\n";    
  232.  
  233.     my($name,$psswd,$uuid,$ugid,$quota,
  234.         $comment,$gcos,$dir,$shell) = getpwnam("root");
  235.     print OUTP "root:*:${uuid}:${ugid}::/:/bin/false\n";
  236.     print OUTG "sys:*:$ugid:\n";
  237.  
  238.     close(OUTP); 
  239.     close(OUTG);  
  240. }
  241.    
  242. sub checkForFiles { }  
  243.  
  244. sub disable_ftp {
  245.     $value = "";
  246.     &putpass;
  247.     $message = "Anonymous FTP disabled.";
  248. }
  249.  
  250. sub generic {
  251.     &header_block("Anonymous FTP");
  252.  
  253.     print "<i>$message</i>";
  254.  
  255.     print "<form name=\"StandardForm\" method=post onSubmit=\"return runSubmit()\">";
  256.  
  257.     print "<center><table cellpadding=5 width=450>\n";
  258.  
  259.     print "<tr><th align=left>Enable anonymous FTP:</th><th align=left>\n",
  260.       $query->radio_group(-name=>'eftp',
  261.       -values=>['Yes','No'], -default=>$eftp),
  262.       "</th></tr>\n";
  263.  
  264.     print "<tr><th align=left>Home directory for the FTP account:</th>\n",
  265.       "<th align=left>",
  266.       $query->textfield('home', $home),
  267.       "</th></tr>\n";
  268.  
  269.     print "</table></center><br>\n";
  270.  
  271.     print &js_buttons('doit','Ok','onClick="markOK()"','onClick="markOther()"');
  272.  
  273.     print $query->endform;
  274.  
  275.     print $query->end_html;
  276. }
  277.  
  278. sub putpass {
  279.     $variable = "ftp";
  280.     local($len) = length($variable);
  281.  
  282.     open(IN,"< $passwdfile") || print "unable to read $passwdfile";
  283.     open(OUT,"> $dummy") || print "unable to write to $dummy";
  284.     $found = 0;
  285.  
  286.     while (<IN>) {
  287.         if ($variable eq substr($_,0,$len)) {
  288.             $found = 1;
  289.             print OUT $value;
  290.         } else { print OUT $_; }
  291.     }
  292.     if ($found == 0) { print OUT $value; }
  293.     close(OUT);
  294.     close(IN);
  295.     rename($dummy, $passwdfile) || print "unable to rename $dummy";
  296. }
  297.